home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
0292.ZIP
/
CUBS.ARC
/
DORK.PRG
< prev
next >
Wrap
Text File
|
1985-12-21
|
512b
|
25 lines
*DORK.PRG
GO TOP
SET DECIMALS TO 1
DO WHILE .NOT. EOF()
STORE (DATE() - JOINED)/30 TO MTENURE
? MTENURE
IF DTOC(LEFT) <> '0.0'
STORE (LEFT-JOINED)/30 TO MROTATE
REPLACE ROTATE WITH MROTATE
REPLACE TENURE WITH MTENURE
ENDIF
SKIP
ENDDO
AVERAGE TENURE TO FRED
?
? 'AVERAGE TENURE OF PRESENT CUBS'
? FRED
AVERAGE ROTATE FOR ROTATE > 0 TO MROTATE
?
? 'AVERAGE TENURE OF DEPARTED CUBS'
? MROTATE
WAIT